' "Endless Rhombus Chain"
' by Josip Kalebić
' A Commodore BASIC 2.0 program ported
' to BAM and modded by Charlie Veniot
' NOTE: the smaller than character ("<") means something to BAM's pre-processor (meta-programming) when an alphabetic character immediately follows
' the smaller than character.  So best to wrap that character in spaces.
' Original program:
' 0t=6:x=1-x*(x < t*2):y=abs(x-t):z=t-y:?spc(12+z)"Z"spc(y*2)chr$(157)"Z":goto

screen _newimage(292, 500, 7)
0 color INT(RND*15+1)
  t=6 
  x=1-x*(x < t*2) 
  y=abs(x-t) 
  z=t-y
  ? spc(12+z)+chr$(219)+spc(y*2);
  locate csrlin,pos(0)-1 
  ? chr$(219)
  sleep 0.025
goto 0